proc msg:onjoin {nick host handle arg} {
  global botnick

  # Argument = channel
  set argument [lindex $arg 0]

  # Verify channel arguments
  if {[string match "#*" $argument]} {
    if {[validchan $argument]} {
      set chan $argument
      set otbn1 [lindex $arg 1]
    } else {
      putquick "NOTICE $nick :\0034ERROR - Cannot execute command - $botnick is not in $argument."
      return 0
    }
  } else {
    putquick "NOTICE $nick :\0034ERROR - No Channel Specified - You need to specify a channel."
    return 0
  }

  onjoin_tcl $nick $host $handle $argument [lrange $arg 1 end]
  return 0
}









